Pro One: Netcracker Netscape Navigator/ProOne: Netcracker Netscape Navigator.iso/pc/nc/wds/nc_dic.geo/00010_dictionary logic.ls

Text File | 1997-03-19 | 5.0 KB | 191 lines

on startMovie
  cursor([402, 403])
  set the cursor of sprite 39 to [404, 405]
  set the cursor of sprite 2 to [404, 405]
  set the cursor of sprite 3 to [404, 405]
  set the cursor of sprite 4 to [404, 405]
  set the cursor of sprite 36 to [404, 405]
  set the cursor of sprite 8 to [404, 405]
  set the cursor of sprite 9 to [404, 405]
  initConst()
  initVars()
  initPuppets()
  StartWithA()
end

on initConst
  global DIC_LETTERS_SPT_BASE, DIC_LETTERS_CST_BASE, DIC_LETTERS_GREEN_CST_BASE, DIC_LETTERS_BLUE_CST_BASE, DIC_CLOSE_BOX_SPT, DIC_ARROW_UP_SPT, DIC_ARROW_DOWN_SPT, DIC_SCROLL_DIS_SPT, DIC_MAX_SLIDER_VPOS, DIC_MIN_SLIDER_VPOS
  set DIC_LETTERS_SPT_BASE to 10
  set DIC_LETTERS_CST_BASE to the number of cast "A1"
  set DIC_LETTERS_GREEN_CST_BASE to the number of cast "A3"
  set DIC_LETTERS_BLUE_CST_BASE to the number of cast "A2"
  set DIC_CLOSE_BOX_SPT to 9
  set DIC_ARROW_UP_SPT to 3
  set DIC_ARROW_DOWN_SPT to 4
  set DIC_SCROLL_DIS_SPT to 40
  set DIC_MAX_SLIDER_VPOS to 212
  set DIC_MIN_SLIDER_VPOS to 37
end

on initVars
  SET_LastHL(EMPTY)
  SET_LastGreenHL(RET_LETTERS_SPT_BASE())
end

on initPuppets
  set the puppet of sprite RET_CLOSE_BOX_SPT() to 1
  repeat with i = RET_LETTERS_SPT_BASE() to RET_LETTERS_SPT_BASE() + 26
    set the puppet of sprite i to 1
  end repeat
end

on StartWithA
  SET_LastHL(RET_LETTERS_SPT_BASE())
  TouchMe()
end

on mouseUp
  set the castNum of sprite RET_CLOSE_BOX_SPT() to the number of cast "Close enable"
  updateStage()
end

on checkHl
  set tempMouseCast to mouseCast()
  if (tempMouseCast >= RET_LETTERS_CST_BASE()) and (tempMouseCast < (RET_LETTERS_CST_BASE() + 27)) then
    if GET_LastHL() <> EMPTY then
      set AsciLetter to numToChar(65 + GET_LastHL() - RET_LETTERS_SPT_BASE())
      set the castNum of sprite GET_LastHL() to the number of cast (AsciLetter & "1")
    end if
    set newSpriteNum to tempMouseCast - RET_LETTERS_CST_BASE() + RET_LETTERS_SPT_BASE()
    set AsciLetter to numToChar(65 + tempMouseCast - RET_LETTERS_CST_BASE())
    set the castNum of sprite newSpriteNum to the number of cast (AsciLetter & "2")
    SET_LastHL(newSpriteNum)
    updateStage()
  else
    if not ((tempMouseCast >= RET_LETTERS_BLUE_CST_BASE()) and (tempMouseCast < (RET_LETTERS_BLUE_CST_BASE() + 27))) then
      if GET_LastHL() <> EMPTY then
        set AsciLetter to numToChar(65 + GET_LastHL() - RET_LETTERS_SPT_BASE())
        set the castNum of sprite GET_LastHL() to the number of cast (AsciLetter & "1")
      end if
      SET_LastHL(EMPTY)
    end if
  end if
end

on TouchMe
  if GET_LastGreenHL() <> EMPTY then
    set AsciLetter to numToChar(65 + GET_LastGreenHL() - RET_LETTERS_SPT_BASE())
    set the castNum of sprite GET_LastGreenHL() to the number of cast (AsciLetter & "1")
  end if
  set AsciLetter to numToChar(65 + GET_LastHL() - RET_LETTERS_SPT_BASE())
  set the castNum of sprite GET_LastHL() to the number of cast (AsciLetter & "3")
  SET_LastGreenHL(GET_LastHL())
  SET_LastHL(EMPTY)
  set spriteToChange to GetMovingSprite()
  if AsciLetter = "[" then
    set castExists to the number of cast get_FrameName()
    if castExists = -1 then
      set the castNum of sprite spriteToChange to the number of cast "no relevant"
      init()
      updateStage()
      sound playFile 1, "NC_DIC.S01"
      repeat while soundBusy(1)
      end repeat
    else
      set the castNum of sprite spriteToChange to the number of cast get_FrameName()
    end if
  else
    set the castNum of sprite spriteToChange to the number of cast ("text-" & AsciLetter)
  end if
  init()
  updateStage()
end

on BeforeClose
  set the castNum of sprite RET_CLOSE_BOX_SPT() to the number of cast "Close Click"
  updateStage()
end

on closeMe
  global DicWindow
  set the castNum of sprite RET_CLOSE_BOX_SPT() to the number of cast "Close enable"
  updateStage()
  close(DicWindow)
  StartWithA()
  go("halt")
  tell the stage
    closeGLOSSARYwindow()
  end tell
end

on SET_LastHL sprtNum
  global DIC_LastHL
  set DIC_LastHL to sprtNum
end

on GET_LastHL
  global DIC_LastHL
  return DIC_LastHL
end

on SET_LastGreenHL sprtNum
  global DIC_LastGreenHL
  set DIC_LastGreenHL to sprtNum
end

on GET_LastGreenHL
  global DIC_LastGreenHL
  return DIC_LastGreenHL
end

on get_FrameName
  global FrameName
  set FrameName to string(Get_CurrentTool())
  return FrameName
end

on Get_CurrentTool
  global CurrentTool
  return CurrentTool
end

on RET_LETTERS_SPT_BASE
  global DIC_LETTERS_SPT_BASE
  return DIC_LETTERS_SPT_BASE
end

on RET_LETTERS_CST_BASE
  global DIC_LETTERS_CST_BASE
  return DIC_LETTERS_CST_BASE
end

on RET_LETTERS_GREEN_CST_BASE
  global DIC_LETTERS_GREEN_CST_BASE
  return DIC_LETTERS_GREEN_CST_BASE
end

on RET_LETTERS_BLUE_CST_BASE
  global DIC_LETTERS_BLUE_CST_BASE
  return DIC_LETTERS_BLUE_CST_BASE
end

on RET_CLOSE_BOX_SPT
  global DIC_CLOSE_BOX_SPT
  return DIC_CLOSE_BOX_SPT
end

on RET_SCROLL_DIS_SPT
  global DIC_SCROLL_DIS_SPT
  return DIC_SCROLL_DIS_SPT
end

on RET_MAX_SLIDER_VPOS
  global DIC_MAX_SLIDER_VPOS
  return DIC_MAX_SLIDER_VPOS
end

on RET_MIN_SLIDER_VPOS
  global DIC_MIN_SLIDER_VPOS
  return DIC_MIN_SLIDER_VPOS
end